Top 10k strings from Cash Book Accounting (1984)(Gemini Marketing).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
6 batchtotal=0
6 ;" ":
5 r(batchtotal-c(1
4 b(trno,n)=
3 w$="BANK("+t$+")":
3 total=total+
3 batchtotal=batchtotal+
3 b$(trno,n,1
3 ;":";batchno+1
2 w$="CASH":
2 w$="BANK(3)"
2 w$="BANK(2)"
2 w$="BANK(1)"
2 trno=trno+1
2 total=total+b(n,z):
2 t$*(i$="C")
2 line=line+2
2 line,col;t$;
2 i$=j$(n,21
2 d(trno,n):
2 d$(trno,n,1
2 b$(y-z,m,1
2 ICRODRIVE? ";
2 ;(("BANK ACCOUNT 1,2 OR 3?")
2 ;"IS THIS CORRECT? (y/n)":
2 ;"INSERT DATA TAPE, THEN ANY KEY":
2 ;"ENTER FILE NAME: ":
2 ;"% VAT:`"
2 ;" --------- ";
2 );n;" ";n$(n)(
2 )''" 3 -";h$(14
1 z+maxtrno>69
1 z+maxtrno:
1 z$=w$+h$(12
1 z$=w$+h$(11
1 z$=w$+" RECEIPTS":
1 z$=((n$(code)+s$)(
1 y$="1");(h$(25
1 y$="1");((h$(code-69
1 x=x+(t$(n)="."):
1 w$="BANK":
1 vat3=f(102
1 vat2=f(101
1 v$="Y"))+(110
1 update=220
1 total=total+f(n):
1 total;("D"
1 total+("."
1 ther(80 column)?":
1 t$>maxtrno
1 t$=(" "(
1 t$=(" "(
1 t$="d"))-(
1 t$*(i$="D"):
1 t$*(i$="D")-
1 t$)+"00")(
1 t$'"CONTROL TOTAL =";:
1 s$=" "
1 r(total)=0
1 r$="****************************************"
1 q$="--------------------------------------------------------------------------------"
1 pupdate=230
1 printc=135
1 option=190
1 n
1 leni=len)+"00")(
1 jnlno=jnlno+1
1 j$(jnlno)=k$(1
1 incorrb=215
1 incorr=175
1 i$="C")+22
1 h +
1 f=f(code):
1 f(code)=f(code)-amt
1 f(code)=f(code)+amt:
1 debit=debit+f(n)*(f(n)>0
1 debit=debit+f(n)
1 debit=debit+
1 d(y,m)=b(y-z,m):
1 d$(y,m)=b$(y-z,m):
1 credit=credit-f(n)*(f(n)<0
1 credit=credit+
1 c$(batchno,3
1 c$(batchno,12
1 c$(batchno,1
1 bcheck=320
1 batchtotal=batchtotal+total:
1 batchtotal=batchtotal+c(b+3
1 batchtotal:
1 batchno=batchno+1
1 batchcorr=900
1 batchcorr:
1 b;": ";c$(b,12
1 b;": "'c$(b,12
1 b$(trno,n)=e$(n+1
1 amt=b(y-z,m):
1 accode=250
1 X printer or
1 Sales (1) Sales (2) Sales (3) Sales (4) Own consumption Opening stock & WIP Purchases (1) Purchases (2) Purchases (3) Purchases (4) Closing stock & WIP Sundry income Deposit interest Wages Sub-contract Wife's wages Rent Rates Insurance Electricity Gas Repairs Equipment hire Use of home Motor expenses Travelling expenses Carriage Telephone Postage & stationeryAdvertising Accountancy Legal & professionalSundry expenses Bank charges H.P. interest Loan interest Leasing Bad debts Vehicles-Depn. Plant&equip-Depn. F&F-Depn. L/H Property-Depn. F/H Property-Depn. Sale of fixed assets Freehold property F/H prop-Acc.depn. Le
1 GEMINI MARKETING LIMITED1983**programmed by C.P.HOWELL**
1 DEMO2
1 DEMO1
1 CASHBOOK
1 ASSETTE or
1 ASSETTE OR
1 ;("BANK ACCOUNT 1,2 OR 3?")
1 ;("A/C No?(1-93,0:MENU): "
1 ;(" "(
1 ;'''';" 1 - ";h$(11
1 ;"Version 9/84"
1 ;"VERIFYING":
1 ;"VERIFY? (y/n)":
1 ;"UPDATED FOR BATCH NO:";batchno:
1 ;"TRANSACTION TOTAL =";:
1 ;"T# TOTAL T# TOTAL -- --------- -- ---------"
1 ;"System devised by"''
1 ;"SEARCHING FOR DATA FILE":
1 ;"REWIND TAPE, PLAY, and any key":
1 ;"REFERENCE: ":
1 ;"RECONFIGURE FOR VAT? ";
1 ;"READY PRINTER":
1 ;"Programming by"''
1 ;"Print batches, store data, then re-run program"
1 ;"PRESENT BALANCE: ` ";:
1 ;"POUND CODE=";
1 ;"PLEASE CONFIRM TO EXIT (y/n)"
1 ;"O.K.-VERIFIED":
1 ;"O.K.-VERIFIED"
1 ;"NEW BALANCE: `";
1 ;"N-are you sure(y/n)?":
1 ;"GROSS AMOUNT:`";
1 ;"DIFFERENCE ON NOMINAL";
1 ;"DEBIT/CREDIT (D/C)? ";
1 ;"D.J.GINGELL,M.A.,A.C.A."'"D.A.PERKINS,B.A.,A.C.A.,A.T.I.I."
1 ;"CASH BOOK ACCOUNTING";
1 ;"C.P.HOWELL,B.Sc.,F.C.A."
1 ;"ARE YOU EXTRACTING OUTPUT VAT ATPOINT OF SALE? ";
1 ;"AMOUNT"''
1 ;"AMOUNT"'
1 ;"AMOUNT TO ENTER: `";
1 ;"ACCOUNTS: `";
1 ;":";trno'''
1 ;":";jnlno+1
1 ;"*** FILE SAVED ***"
1 ;"** NO MORE SPACE **":
1 ;"** INSUFFICIENT SPACE **";
1 ;"** INCORRECT **":
1 ;"** CORRECT **":
1 ;"** BATCH TOTAL INCORRECT **":
1 ;"** BATCH TOTAL CORRECT **":
1 ;"** 10 BATCHES - NO MORE **";
1 ;" UPDATING ":
1 ;" TRANSACTION ";
1 ;" ROOM FOR ";70
1 ;" KEEP TAPE RUNNING ":
1 ;" ENTER OPTION "
1 ;" CONFIRM TO UPDATE DATA (y/n)? "
1 ;" CHECKING NOMINAL ACCOUNTS ":
1 ;" ** NEW BALANCE TOO LARGE ** ":
1 ;" !! WARNING !! ";
1 ;" JOURNAL ";
1 ;" CASHBOOK MENU "''''
1 ;" CASH PAYMENTS - BATCH ";
1 ;" BANK PAYMENTS - BATCH ";
1 ;" Any key to continue ":
1 ;" ********** FOUND **********":
1 ;" ";w$;" RECEIPTS - BATCH ";
1 ;" DATA DELETED ":
1 ;" ":
1 ;" ":
1 ;" ":
1 ;" ":
1 1984 Gemini Marketing Limited 21, Dinan Way Trading Estate Exmouth, Devon Tel(0395)265165"
1 -z;" TRANSACTIONS ONLY":
1 -len)+("0"
1 *(w$="CASH")+2000
1 )=".")+t$+("."
1 );t$;" ";:
1 );n;" ";(n$(n)+s$)(
1 );i$'" ref: ";j$(n,3
1 );code;" ";n$(code)(
1 );"TOTALS ";:
1 );"Ref: ";d$(trno,n,3
1 );"DEBIT CREDIT"'q$(
1 );" DEBIT CREDIT MEMO REFERENCE"'q$(
1 );" BATCH PRINTOUT FOR ";(g$+s$)(
1 );" (BATCH TOTAL = ";
1 )+"(0-menu)")
1 ))+t$+(j$(n,21
1 )''"ACCOUNT";s$(
1 )''" 3 - ";h$(14
1 )''" 2 -";h$(25
1 )''" 2 -";h$(12
1 )''" 2 - ";h$(12
1 )''" ACCOUNT";s$(
1 )'"TOTALS";s$(
1 )'"BATCH TOTAL = `";:
1 )'" ref: ";d$(trno,n,3
1 ) `"''
1 ''''''"TRIAL BALANCE (";g$;")"'q$(
1 ''''"TRIAL BALANCE (";g$;")"'q$(
1 ''''"Please confirm to exit (y/n)"
1 ''''"Have you:"'" -printed all batch details"'" -stored data to tape? (y/n) ";
1 ''''"Bye!":
1 ''''" BATCH PRINTOUT
1 ''''" 1 -";h$(16
1 '''"VAT RATE 1 (%): 0"'"VAT RATE 2 (%): ";
1 ''"TRANSACTION No:";t''
1 ''"TRANSACTION NO: ";t''
1 ''"JOURNAL ACTIVITY"'q$(
1 ''"BATCH ";
1 ''"(or any other key for menu)"
1 ''" CODE";
1 '"WHICH TRANSACTION TO CORRECT? (Enter number)"
1 '"JOURNAL ACTIVITY"'q$(
1 '"Gross amt-ZERO % VAT:`"
1 '"Gross amt-";vat3;
1 '"Gross amt-";vat2;
1 '"DO YOU HAVE A FILE TO LOAD? ";
1 '"ACCOUNT";
1 "VAT RATE 3 (%): "
1 "Microdrive (y/n)?":
1 "Input VAT ","Purch's(1)","Purch's(2)","Purch's(3)","Purch's(4)"
1 "HOW MANY RATES OF VAT ARE APPLICABLE? (0,1,2,or 3) ";
1 "GOTO 1000" to restart program without losing data
1 "ENTER TODAY'S DATE ";
1 "CASHBOOK" accounting system:
1 "CASHBOOK"
1 "Account:";n$(
1 " 6. ";h$(14
1 " 4 -";h$(14
1 " 1 -";h$(11
1 " ";t$'''''':
1 " ";n;". ";h$(n+25
1 " ";n;" -";h$(n+16
1 " ";n;" -";h$(n+1
1 for: ";g$'q$(
1 VAT SUMMARY
1 VAT NOMINAL ACCOUNTS
1 STORE DATA TO TAPE
1 EXIT PROGRAM CASH RECEIPTS CASH PAYMENTS BANK RECEIPTS BANK PAYMENTS JOURNAL SCREEN/PRINT ACCOUNTS VAT SUMMARY STORE DATA PRINT BATCH DETAILS PURCHASES FOR RESALE OTHER EXPENSES MENU (any other key) SET UP/AMEND NOMINAL A/C LIST NOMINAL ACCOUNTS LIST MEMO ACCOUNTS PRINT TRIAL BALANCE Enter batch total: ` How many transactions? (up to 25) TRANSACTION GROSS AMOUNT:` UPDATE MEMO A/C's TOTAL SALES NET PAYMENTS I/P AT ZERO VAT I/P AT VAT S.R.(1) I/P AT VAT S.R.(2) ITEM CANCELLED - RE-ENTER
1 BATCH DETAILS AS ENTERED
1 (nominal) ";"`";:
1